home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Graphics Programming (2nd Edition) / Visual Basic Graphics Programming 2nd Edition.iso / Src / Ch9 / IconAnim.frm (.txt) < prev    next >
Visual Basic Form  |  1999-05-31  |  8KB  |  260 lines
  1. VERSION 5.00
  2. Begin VB.Form frmIconAnim 
  3.    Caption         =   "IconAnim"
  4.    ClientHeight    =   1410
  5.    ClientLeft      =   2925
  6.    ClientTop       =   1875
  7.    ClientWidth     =   2175
  8.    LinkTopic       =   "Form1"
  9.    PaletteMode     =   1  'UseZOrder
  10.    ScaleHeight     =   1410
  11.    ScaleWidth      =   2175
  12.    Begin VB.OptionButton optIcon 
  13.       Caption         =   "Signal"
  14.       Height          =   255
  15.       Index           =   2
  16.       Left            =   720
  17.       TabIndex        =   2
  18.       Top             =   960
  19.       Width           =   855
  20.    End
  21.    Begin VB.OptionButton optIcon 
  22.       Caption         =   "Flame"
  23.       Height          =   255
  24.       Index           =   1
  25.       Left            =   720
  26.       TabIndex        =   1
  27.       Top             =   600
  28.       Width           =   855
  29.    End
  30.    Begin VB.OptionButton optIcon 
  31.       Caption         =   "Circle"
  32.       Height          =   255
  33.       Index           =   0
  34.       Left            =   720
  35.       TabIndex        =   0
  36.       Top             =   240
  37.       Value           =   -1  'True
  38.       Width           =   855
  39.    End
  40.    Begin VB.Timer tmrIcon 
  41.       Interval        =   100
  42.       Left            =   240
  43.       Top             =   360
  44.    End
  45.    Begin VB.Image imgFlame 
  46.       Height          =   480
  47.       Index           =   5
  48.       Left            =   1680
  49.       Picture         =   "IconAnim.frx":0000
  50.       Top             =   1680
  51.       Visible         =   0   'False
  52.       Width           =   480
  53.    End
  54.    Begin VB.Image imgFlame 
  55.       Height          =   480
  56.       Index           =   6
  57.       Left            =   2160
  58.       Picture         =   "IconAnim.frx":030A
  59.       Top             =   1680
  60.       Visible         =   0   'False
  61.       Width           =   480
  62.    End
  63.    Begin VB.Image imgFlame 
  64.       Height          =   480
  65.       Index           =   7
  66.       Left            =   2640
  67.       Picture         =   "IconAnim.frx":0614
  68.       Top             =   1680
  69.       Visible         =   0   'False
  70.       Width           =   480
  71.    End
  72.    Begin VB.Image imgFlame 
  73.       Height          =   480
  74.       Index           =   4
  75.       Left            =   1200
  76.       Picture         =   "IconAnim.frx":091E
  77.       Top             =   1680
  78.       Visible         =   0   'False
  79.       Width           =   480
  80.    End
  81.    Begin VB.Image imgFlame 
  82.       Height          =   480
  83.       Index           =   3
  84.       Left            =   2640
  85.       Picture         =   "IconAnim.frx":0C28
  86.       Top             =   1080
  87.       Visible         =   0   'False
  88.       Width           =   480
  89.    End
  90.    Begin VB.Image imgFlame 
  91.       Height          =   480
  92.       Index           =   2
  93.       Left            =   2160
  94.       Picture         =   "IconAnim.frx":0F32
  95.       Top             =   1080
  96.       Visible         =   0   'False
  97.       Width           =   480
  98.    End
  99.    Begin VB.Image imgFlame 
  100.       Height          =   480
  101.       Index           =   1
  102.       Left            =   1680
  103.       Picture         =   "IconAnim.frx":123C
  104.       Top             =   1080
  105.       Visible         =   0   'False
  106.       Width           =   480
  107.    End
  108.    Begin VB.Image imgFlame 
  109.       Height          =   480
  110.       Index           =   0
  111.       Left            =   1200
  112.       Picture         =   "IconAnim.frx":1546
  113.       Top             =   1080
  114.       Visible         =   0   'False
  115.       Width           =   480
  116.    End
  117.    Begin VB.Image imgSignal 
  118.       Height          =   480
  119.       Index           =   2
  120.       Left            =   2160
  121.       Picture         =   "IconAnim.frx":1850
  122.       Top             =   2280
  123.       Visible         =   0   'False
  124.       Width           =   480
  125.    End
  126.    Begin VB.Image imgSignal 
  127.       Height          =   480
  128.       Index           =   1
  129.       Left            =   1680
  130.       Picture         =   "IconAnim.frx":1B5A
  131.       Top             =   2280
  132.       Visible         =   0   'False
  133.       Width           =   480
  134.    End
  135.    Begin VB.Image imgSignal 
  136.       Height          =   480
  137.       Index           =   0
  138.       Left            =   1200
  139.       Picture         =   "IconAnim.frx":1E64
  140.       Top             =   2280
  141.       Visible         =   0   'False
  142.       Width           =   480
  143.    End
  144.    Begin VB.Image imgRing 
  145.       Height          =   480
  146.       Index           =   7
  147.       Left            =   2640
  148.       Picture         =   "IconAnim.frx":216E
  149.       Top             =   600
  150.       Visible         =   0   'False
  151.       Width           =   480
  152.    End
  153.    Begin VB.Image imgRing 
  154.       Height          =   480
  155.       Index           =   6
  156.       Left            =   2160
  157.       Picture         =   "IconAnim.frx":2478
  158.       Top             =   600
  159.       Visible         =   0   'False
  160.       Width           =   480
  161.    End
  162.    Begin VB.Image imgRing 
  163.       Height          =   480
  164.       Index           =   5
  165.       Left            =   1680
  166.       Picture         =   "IconAnim.frx":2782
  167.       Top             =   600
  168.       Visible         =   0   'False
  169.       Width           =   480
  170.    End
  171.    Begin VB.Image imgRing 
  172.       Height          =   480
  173.       Index           =   4
  174.       Left            =   1200
  175.       Picture         =   "IconAnim.frx":2A8C
  176.       Top             =   600
  177.       Visible         =   0   'False
  178.       Width           =   480
  179.    End
  180.    Begin VB.Image imgRing 
  181.       Height          =   480
  182.       Index           =   3
  183.       Left            =   2640
  184.       Picture         =   "IconAnim.frx":2D96
  185.       Top             =   120
  186.       Visible         =   0   'False
  187.       Width           =   480
  188.    End
  189.    Begin VB.Image imgRing 
  190.       Height          =   480
  191.       Index           =   2
  192.       Left            =   2160
  193.       Picture         =   "IconAnim.frx":30A0
  194.       Top             =   120
  195.       Visible         =   0   'False
  196.       Width           =   480
  197.    End
  198.    Begin VB.Image imgRing 
  199.       Height          =   480
  200.       Index           =   1
  201.       Left            =   1680
  202.       Picture         =   "IconAnim.frx":33AA
  203.       Top             =   120
  204.       Visible         =   0   'False
  205.       Width           =   480
  206.    End
  207.    Begin VB.Image imgRing 
  208.       Height          =   480
  209.       Index           =   0
  210.       Left            =   1200
  211.       Picture         =   "IconAnim.frx":36B4
  212.       Top             =   120
  213.       Visible         =   0   'False
  214.       Width           =   480
  215.    End
  216. Attribute VB_Name = "frmIconAnim"
  217. Attribute VB_GlobalNameSpace = False
  218. Attribute VB_Creatable = False
  219. Attribute VB_PredeclaredId = True
  220. Attribute VB_Exposed = False
  221. Option Explicit
  222. Private Const icon_Ring = 0
  223. Private Const icon_FLAME = 1
  224. Private Const icon_SIGNAL = 2
  225. Private IconType As Integer
  226. Private IconNumber As Integer
  227. Private Sub optIcon_Click(Index As Integer)
  228.     IconType = Index
  229.     IconNumber = 0
  230.     Select Case IconType
  231.         Case icon_Ring
  232.             tmrIcon.Interval = 100
  233.         Case icon_FLAME
  234.             tmrIcon.Interval = 100
  235.         Case icon_SIGNAL
  236.             tmrIcon.Interval = 1000
  237.     End Select
  238. End Sub
  239. Private Sub Form_Unload(Cancel As Integer)
  240.     End
  241. End Sub
  242. ' Display the next icon.
  243. Private Sub tmrIcon_Timer()
  244.     Select Case IconType
  245.         Case icon_Ring
  246.             Icon = imgRing(IconNumber).Picture
  247.             IconNumber = (IconNumber + 1) Mod 8
  248.         Case icon_FLAME
  249.             Icon = imgFlame(Int(8 * Rnd)).Picture
  250.         Case icon_SIGNAL
  251.             Icon = imgSignal(IconNumber).Picture
  252.             If IconNumber = 1 Then
  253.                 tmrIcon.Interval = 1000
  254.             Else
  255.                 tmrIcon.Interval = 2000
  256.             End If
  257.             IconNumber = (IconNumber + 1) Mod 3
  258.     End Select
  259. End Sub
  260.